0 REM **BANNER PRINTER **
1 REM **64 PROGRAMMER ISS.1 **
10 OPEN4,4
20 H=6:REM HIGHT/8
30 W=2:REM WIDTH/8
40 QQ$="A MESSAGE, 80 CHARS MAX"
50 FORJ=1TOLEN(QQ$)
60 C=ASC(MID$(QQ$,J,1))
70 GOSUB90:NEXTJ
80 PRINT#4:CLOSE4:END
85 :
90 REM ** PRINT CHARACTER **
100 GOSUB210
110 T=128
120 A$=" ":FORV=7TO0STEP-1
130 REM PRINT X(V)AND T;T
140 IF(X(V)ANDT)<>TTHENGOTO160
150 FORP=1TOH:A$=A$+"*":NEXTP:GOTO170
160 FORP=1TOH:A$=A$+" ":NEXTP
170 NEXTV
180 FORE=1TOW:PRINT#4,A$:NEXTE
190 T=T/2:IFT<1THENRETURN
200 GOTO120
205 :
210 REM**FIND CHAR IN ROM**
220 IFC>31ANDC<64THENM=C
230 IFC>63ANDC<96THENM=C-64
240 IFC>95ANDC<128THENM=C-32
250 IFC>159ANDC<192THENM=C-64
260 POKE56334,PEEK(56334)AND254
270 POKE1,PEEK(1)AND251
280 FORR=0TO7
290 X(R)=PEEK(53248+(M*8)+R)
300 NEXTR
310 POKE1,PEEK(1)OR4
320 POKE56334,PEEK(56334)OR1
330 RETURN